;;;Made for use with voice commands. returns a pan displacement
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6/2004
;;;	   Edited:  6/2004
(DEFUN panpnt (dir / )
  (COND
    ((EQ dir 1);right
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")-1.0)2 2)",0")))
    ((EQ dir 2);left
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")1.0)2 2)",0")))
    ((EQ dir 3);up
     (SETQ displstr (strcat "0,"(rtos(*(getvar"viewsize")-0.75)2 2))))
    ((EQ dir 4);down
     (SETQ displstr (strcat "0,"(rtos(*(getvar"viewsize")0.75)2 2))))
    ((EQ dir 5);quadrant 1
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")-0.75)2 2)","(rtos(*(getvar"viewsize")-0.75)2 2))))
    ((EQ dir 6);quadrant 2
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")0.75)2 2)","(rtos(*(getvar"viewsize")-0.75)2 2))))
    ((EQ dir 7);quadrant 3
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")0.75)2 2)","(rtos(*(getvar"viewsize")0.75)2 2))))
    ((EQ dir 8);quadrant 4
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")-0.75)2 2)","(rtos(*(getvar"viewsize")0.75)2 2))))
    ((EQ dir 9);quadrant 1 up
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")-0.25)2 2)","(rtos(*(getvar"viewsize")-0.5)2 2))))
    ((EQ dir 10);quadrant 1 down
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")-0.75)2 2)","(rtos(*(getvar"viewsize")-0.5)2 2))))
    ((EQ dir 11);quadrant 2 up
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")0.25)2 2)","(rtos(*(getvar"viewsize")-0.5)2 2))))
    ((EQ dir 12);quadrant 2 down
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")0.75)2 2)","(rtos(*(getvar"viewsize")-0.5)2 2))))
    ((EQ dir 13);quadrant 3 up
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")0.75)2 2)","(rtos(*(getvar"viewsize")0.5)2 2))))
    ((EQ dir 14);quadrant 3 down
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")0.25)2 2)","(rtos(*(getvar"viewsize")0.5)2 2))))
    ((EQ dir 15);quadrant 4 up
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")-0.75)2 2)","(rtos(*(getvar"viewsize")0.5)2 2))))
    ((EQ dir 16);quadrant 4 down
     (SETQ displstr (strcat (rtos(*(getvar"viewsize")-0.25)2 2)","(rtos(*(getvar"viewsize")0.5)2 2))))
    (T
     (SETQ displstr "0,0"))
  )
)